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O Introducción 


ON la aparición en el 
mercado de los com- 
putadores de progra- 
mas almacenados, 
se creó una nueva 
profesión, el progra- 
mador de ordenado- 
res. Desde los co- 
mienzos hasta hoy, se han producido 
unos enormes avances en los diferentes 
tipos y formas de programar. 

Son muchos los que atribuyen el honor 
de haber sido la primera programadora 
a Ada Augusta, que murió casi un siglo 
antes de que apareciera la primera com- 
putadora programable. Nació en 1815. 
Ada se relacionó con Charles Babbage, 
quien trabajaba en su proyecto de la 
máquina analítica. Ada, que poseía 
grandes aptitudes para las matemáticas 
y el pensamiento mecánico, se ofreció 
para trabajar con Babbage, en su pro- 
yecto, y en 1842 tradujo del inglés al ita- 
liano una primera descripción de la cita- 
da máquina, agregando muchas notas 
propias. Ada se refirió a «ciclos de ope- 
ración» y al repetido uso de las tarjetas 
como estructuras del tipo subrutinas y se 
refirió también a la computación del tipo 
no numérica. Observó que la máquina 
analítica no originaba nada, y que sólo 
podría hacer aquello que se le orde- 
naba. 

Estos fueron los primeros esbozos de la 
programación. Veamos ahora los princi- 
pios reales. 
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LENGUAJES DE PROGRAMACIÓN 


A ——————— A > 


An) El lenguaje máquina, por estar íntimamen- 
MA | te ligado al hardware del ordenador, es 
propio de cada uno. 


O Los inicios 


Los lenguajes de programación 
surgieron como canal de comunicación 
entre el hombre y la máquina; estos len- 
guajes permiten que la máquina ejecute 
las Ordenes dadas por el programador. 
Los lenguajes de programación toman 
diversas formas. Los primeros pertene- 
cientes a las primeras máquinas, como la 
ENIAC y la EDSAC, se componían en el 
lenguaje real de las máquinas mismas. 
Las instrucciones se expresan simple- 
mente como una serie de dígitos bina- 
rios. La gran dificultad que suponía este 
tipo de programación condicionaba mu- 
cho la capacidad de estas primeras má- 
quinas. 


FORTRAN 


LENGUAJE 
DE 
BAJO NIVEL 


En los lenguajes de alto nivel se permite 
ejecutar en una sola instrucción operacio- 
nes que equivalen a varias instrucciones en 
lenguaje tipo ensamblador. 


Los primeros lenguajes de programa- 
ción propiamente dichos se conocieron 
con el nombre de lenguajes ensambla- 
dores; un ejemplo es el TRANSCODE. En 
los lenguajes ensambladores se define 
un código especial (llamado mnemóni- 
Co) para cada una de las operaciones 
de la máquina y se introduce con una no- 
tación especial, para especificar el dato 
con el cual debe realizarse tal opera- 
ción. 

Estos lenguajes son aún muy populares 
en ciertas aplicaciones; a pesar de que 
se ha avanzado notablemente en los len- 
guajes de programación, de máquina, 


esto no basta para satisfacer las necesi- 
dades de todo lo que el programador 
desea hacer. 


E Lenguajes de alto nivel 


A mediados del decenio 1950-1960 
aparecieron los lenguajes de programa- 
ción de propósito general, uno de los 
cuales revolucionó rápidamente el cam- 
po de la programación. Se llamó FOR- 
TRAN (FORmula TRANSlation) y fue publi- 
cado en 1954. 

El líder del proyecto FORTRAN fue John 
Backus, quien trabajó para la IBM y des- 
arrolló un método formal, para definir la 
sintaxis de los lenguajes de programa- 
ción, la forma BNF. FORTRAN sufrió varios 
desarrollos posteriores que fueron apare- 
ciendo en 1958, 1960 y 1962, el último de 
los cuales se conoció como FORTRAN IV. 
En 1977 apareció el FORTRAN 77. 

Se trata de un lenguaje dirigido a la so- 
lución numérica de problemas científi- 
cos, es fácil de entender, leer y escribir. 
Con el FORTRAN, el usuario está capaci- 
tado de inmediato para escribir un pro- 
grama aunque sepa muy poco acerca 
de las características físicas de la máqui- 
na. 

Los lenguajes de alto nivel, a causa de 
su generalidad, requieren traductores 
más complejos, conocidos como «com- 
piladores». Lo cual produjo a estos len- 
guajes algunas dificultades al principio. 


Otros lenguajes de programación han 
seguido los pasos del FORTRAN,; tal es el 
caso del ALGOL (ALGOrithmic Languaje). 
Fue diseñado por un comité internacio- 
nal en 1958 y revisado en 1960. Es un len- 
guaje muy efectivo para resolver proble- 
mas matemáticos y numéricos. 


YY Relación entre el programa FUENTE y el programa OBJETO. 


Tanto FORTRAN como ALGOL están diri- 
gidos básicamente a la computación 
científica. En mayo de 1959 el Departa- 
mento de Defensa de los Estados Unidos 
convocó una reunión para discutir el pro- 
blema de desarrollar un lenguaje común, 
para aplicaciones de negocios. La ver- 
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sión oficial de COBOL (COmmon Business 
Oriented Languaje, Lenguaje Orientado 
a los Negocios) apareció en diciembre 
de 1959. 

Los objetivos de COBOL consideraban 
la expresión natural de los programas, lo 
que permitía el aprendizaje fácil del len- 


| A 
[A Lenguajes de programación. 


guaje, la amplia documentación del mis- 
mo y la independencia de la máquina, 
lo cual facilitaría la transferencia de los 
programas COBOL de una máquina a 
otra. 


Han surgido muchas variaciones de 
COBOL, sin embargo, básicamente no ha 
sufrido cambio alguno. 

Otro lenguaje de alto nivel que tuvo 
gran repercusión fue el BASIC (Beginner's 
All-purpose Symbolic Instruction Code). 
Es un lenguaje de alto nivel orientado al 
aprendizaje y de contexto científico. El 
sistema BASIC fue desarrollado en 1965, 
y fue el primero en estar disponible en 
tiempo compartido o modo interactivo y 


en utilizarse en una red o base distribui- 
da. Continúa siendo hoy en día de gran 
difusión, y el tiempo compartido ha sido 
la forma más común de utilización. 


En septiembre de 1963 un comité com- 
puesto por personal de IBM y de clientes 
formó un consejo con el fin de crear un 
lenguaje que pudiera atraer a más usua- 
rios, pero que siguiese siendo también 
una poderosa herramienta para el inge- 
niero. El informe presentado fue revisado 
en junio y diciembre del mismo año y de- 
nominado PL/!l. Por ser un lenguaje muy 
general tiene una amplísima variedad 
de aplicaciones, pero aunque es un len- 
guaje muy potente, no pudo desempe- 
ñar el papel que se esperaba debido a 
que no cumplía el requisito de universali- 
dad. 

Otro lenguaje que ha tenido hoy en día 
una gran difusión en todas sus variantes 
ha sido el PASCAL, que proviene del Al- 
GOL en su variante ALGOL 60. El PASCAL 
es un poderoso lenguaje científico para 
tratamiento de todo tipo de datos mate- 
máticos. Su principal ventaja radica en 
que es un lenguaje estructurado, facili- 
tando la programación modular. 


¡m Lenguajes de inteligencia 
== artificial 


Los lenguajes de inteligencia artificial 
están teniendo un gran desarrollo en la 
actualidad. El más conocido y del que 
han partido todos los demás es el LISP 
(LISt Processing). Creado en 1959, en el 
MIT (Massachusetts Institute of Techno- 
logy) para aplicaciones en el campo de 
la inteligencia artificial, es el preferido 
por los programadores en este campo. 
En este lenguaje las diferencias entre los 
datos y las instrucciones son casi imper- 
ceptibles y tiene gran facilidad para la 
programación. 

Otros lenguajes en este campo son: 


LOGO. Procedente del LISP, pensado 
principalmente para la enseñanza esco- 
lar. Fue desarrollado en el MIT. 

APL. Creado por IBM; permite con una 
única instrucción definir operaciones 
para las cuales otros ordenadores em- 
plean varias. 

FORTH. Desarrollado para control de 
proceso industrial 


C. Creado para poder utilizar al máxi- 
mo de las facilidades del sistema opera- 
tivo UNIX. 


Lenguajes actuales de mayor 
s profusión 


En la actualidad, el lenguaje más pode- 
roso que se ha creado, y que pretende 
esa universalidad buscada por PL/I ante- 
riormente, es el ADA. El ADA es quiza el 
lenguaje de programación más reciente. 


Fue creado en 1975 a partir de una mo- 
dalidad del PASCAL, llamada PASCAL 
CONCURRENTE y de otro lenguaje llama- 
do MODULA. Las propiedades esenciales 
de ambos están recogidas en el ADA; 
está enfocado de manera que las dife- 
rentes partes de un programa se consi- 


deran como componentes, que se pue- 


den seleccionar por medio de una espe- 
cie de catálogos y más tarde combinar 
en función de la aplicación que se quie- 
ra. A estos componentes se les llama mó- 
dulos y el compilador ADA los conecta 
entre sí. 


[A Lenguajes de inteligencia artificial. 


Las 
subrutinas 
y el stack 


NA de las estructuras 
de datos más usada 
es la pila, o stack. 
Concretamente el 
2-80, como casi todos 
los microprocesado- 
res, tiene una pila del 
sistema para gestio- 
nar las llamadas a subrutinas. 
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SPECTRUM, AMSTRAD, MSX 


'O Estructura de una pila 


Una pila, como su nombre indica, es 
una zona donde se «apilan» datos. Cada 
nuevo dato se coloca «encima» del an- 
terior; por eso esta estructura también es 
conocida como LIFO (Last In First Out = úl- 
timo en llegar, primero en salir). 

Para implementarla en la memoria de 
un ordenador se designa una cierta po- 
sición de memoria como «fondo de la 
pila» y en los siguientes se van almace- 
nando consecutivamente los datos. Para 
tener la cuenta de cuál es el último dato 


MANEJO DE LA PILA DEL SISTEMA 


Indicadores 
SZHP/IVNC 


Operación 


Código 
simbólica 


mnemotecnico 76 


PUSH qq (SP - 2) — qq, 
(SP - 1) — qq, 
SP => SP - 2 
(SP - 2) — IX, 
(SP - 1) — IX, 
SP > SP - 2 
(SP - 2) —IY, 
(SP - 1) UY, 
SP > SP - 2 
qq, — (SP + 1) 


PUSH IX 


PUSH IY 


POP qq 


POP IX IX, (SP + 1) 
IX (SP) 

SP > SP + 2 
IY, — (SP + 1) 
IY, — (SP) 

SP — SP +2 
H <> (SP + 1) 
L «> (SP) 

IX, = (SP + 1) 
IX, — (SP) 

IY, <= (SP+ 1) 
IY, — (SP) 


POP IY 


EX (SP),HL 
EX (SP),IX 
EX (SP),IY 


Códigos 


543 


N.» de 
bytes 


N.: de 
ciclos M 


N.* de 


210 Hex estados T Comentarios 


se utiliza un registro que nos lo indica; 
éste es el puntero de la pila SP (Stack 
Pointer). 

Por tanto, para introducir un dato en la 
pila el Z- 80 incrementa el puntero SP y en 
la posición indicada por éste almacena 
el dato. ) 

Para realizar la operación contraria 
coge el dato indicado por el SP y decre- 
menta el contenido de éste en una uni- 
dad. 

Como las direcciones del Z-80 son de 
16 bits y la pila sólo admite datos de 8 
bits, éstos se almacenan en forma de dos 
datos de 8 bits consecutivos, por lo que 
se incrementará, o decrementará, el 
puntero de la pila en dos unidades. 

Para guardar los datos en la pila se usa 
la instrucción PUSH (empujar); pudiendc 
ser el dato cualquiera de los dobles re- 
gistros de 16 bits (AF, BC, DE, HL, IX, 1Y). 


L Y Ejecución de PUSH. 


La instrucción inversa de ésta es la que 
saca los datos de la pila y los almacena 
en cualquiera de los registros. La instruc- 
ción es POP, y también funciona con los 
mismos registros que PUSH. 


— SP 
POP HL H= $A040 
A 


Ejecución de POP. 


También existen para manejo de pila 
algunas instrucciones de intercambio de 
algunos registros con los contenidos de 
dicha pila. Como se vio en un anterior ca- 
pítulo, la instrucción EX intercambia los 
contenidos de las direcciones, o regis- 
tros, sobre los que opere. 

En este caso las instrucciones existen- 
tes son: 


EX (SP),HL 
EX (SP), IX 
EX (SP),IY 


que intercambia el contenido de la pila 
con el contenido de los registros, HL,IX e 
IY, respectivamente. 


HL = $B020 HL = $A040 


EX (SP),HL 


Ejecución de EX. 


Llamada y retorno 


U de subrutinas 


Cuando en un programa existe una 
parte que se repite en varias ocasiones, 
ésta se suele extraer como una subrutina 
que se llama cada vez que se necesita, 
en vez de repetir el código completo, 
por lo que se ahorra espacio. 

Una vez ejecutada la subrutina la eje- 
cución del programa debe continuar en 
la instrucción siguiente a la que llamó la 
subrutina. Por ello, es necesario almace- 
nar la dirección desde donde se ejecuta 
la llamada. 

Como una subrutina puede llamar a 
otra subrutina, es necesario almacenar 
más de una dirección de retorno. Para 
esto se usa la pila del sistema anterior- 
mente descrita. Este sistema permite eje- 
cutar los retornos en el orden inverso al 
que se ejecutaron las llamadas. 


La instrucción para ejecutar una subru- 
tina es: 


CALL X 
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GRUPO DE LLAMADA Y RETORNO 


Código Operación Indicadores Códigos Node Node N.>de Comataros 
mnemotecnico simbólica SZHP/IVNC 76 543 210 Hex bytes ciclos M estados T 
CALL nn (SP - 1) PC, sXe X 0... . 11:D01 101..CD- 00 5 17 
(SP - 2) PC, n= 
PC nn n= 
CALL ec,nn Sila condición cc es falsa, + +. X +. X +... 11 cc 100 3 3 10  Sicces falsa 
se continúa; si es cierta, n> 
como CALL nn n> 3 5 17  Sicces cierta 
RET PC, — (SP) e .XoXo... 11001 001 C9 1 3 10 
PC, — (SP + 1) 
RET cc Sila condición cc es falsa, +. +. X +. X.... 11 cc 000 1 1 5  Sicces falsa 
se continúa; si no, como : 1 3 1. Sicces cierta 
RET cc Condición 


donde X es la dirección absoluta donde 
está la subrutina. 

Al ejecutar esta instrucción el contador 
de programa (PC) se guarda en la pila 
para después regresar a seguir la ejecu- 
ción, tras esto se ejecutan las instruccio- 
nes que están a partir de la dirección in- 
dicada. 


RET 


YY Llamada a subrutina. 


Para regresar de esta subrutina debe- 
mos ejecutar la instrucción: 


RET 


ésta saca la dirección que estaba ejecu- 
tándose al realizarse la llamada a la sub- 


000 NZ no cero 

001 Z cero 

010 NC no arrastre 
011 C arrastre 

100 PO paridad im- 


par 

101 PE paridad par 
110 P signo positivo 
111 M signo negativo 


rutina de la pila del sistema y continúa 
la ejecución a partir de este punto como 
si la llamada no se hubiese realizado. 

Existen algunas instrucciones de salto a 
subrutina condicionales que se ejecutan, 
o no se ejecutan, según el estado de al- 
gunas de las banderas. 

Si la condición indicada en la instruc- 
ción es falsa, la instrucción no se ejecu- 
tará. Si la condición es cierta, funciona 
igual que CALL. 


Las diversas condiciones son: 


NZ: El contenido del acumulador es dis- 
tinto de cero. 

Z: El contenido del acumulador es cero. 

NC: En la última operación no se ha 
producido acarreo. 

C: En la última operación se ha produ- 
cido acarreo. 

PO: Paridad impar (el número de «1» en 
el acumulador es impar). 

PE: Paridad par (el número de «1» en el 
acumulador es par). 

P: El número almacenado en el acumu- 
lador es positivo. 

M: El número almacenado en el acu- 
mulador es negativo. 


También existe ejecución condicional 
de la instrucción de retorno. Esta lleva las 
mismas opciones que la de llamada. 


Diseñador 
de juegos 
de aventuras 


continuación apare- 
ce un programa real- 
mente excepcional. 
Con él podremos rea- 
lizar nuestros propios 
programas de aven- 
turas. 

Las aventuras que 
podremos realizar, aunque pueden ser 
englobadas dentro de las llamadas con- 
versacionales, no lo son del todo. Aun 
así, los juegos que nosotros podremos 
realizar podrán ser todo lo espectacula- 
res y complicados que queramos. 

Antes de ver el listado y las modifica- 
ciones que hay que realizar para que el 
programa funcione en ordenadores dis- 
tintos del IBM, vamos a explicar un poco 
en qué consiste una de estas aventuras 
y cómo se crearía. 

Todas las aventuras conversacionales 
están basadas en un laberinto, en el cual 
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nos van a ocurrir ciertas cosas. Dentro de 
dicho laberinto o paisaje tendremos que 
llevar a cabo una misión que puede con- 
sistir en rescatar a una persona, capturar 
o matar a un malvado rey o monstruo, in- 
tentar escapar, desactivar una bomba, 
etcétera. El laberinto estára dividido en ha- 
bitaciones o, en forma general, en lugares. 
En cada uno de estos lugares podrá pa- 
sar algo, como puede ser elegir un cami- 
no, coger un objeto, usar un objeto, pe- 
learnos con alguien, etc. Dichos lugares 
están interconectados unos con otros de 
una forma lógica y que nosotros hemos 
inventado. La aventura empieza en una 
de las habitaciones y puede terminar en 
más de una, dependiendo de que el ju- 
gador termine la aventura vivo o muerto 
(o prisionero de por vida). 

Con este programa podremos definir 
todos los lugares que queramos, qué po- 
demos hacen en cada lugar, qué nece- 
sitamos utilizar en ciertos lugares, dónde 
terminamos y cómo terminamos la aven- 
tura... 

Antes de pasar a una aventura de 
ejemplo vamos a ver el programa: 


PROGRAMAS 


1170 REM sSASSS SNS ISA ITS ISS IES jElOISIOIOjSSOO KK 
1180 REM * DEFINICION DE LAS TABLAS * 
1190 REM olaaa SASSJSISISJSJSlOlTlTElTljTlTKAK 
1200 REM 

1210 DIM S$(300) 

1220 DIM E(800) 

1230 DIM O$(100) 

1240 DIM CL(300) 

1250 DIM IN(300) 

1260 DIM E1(300) 

1270 DIM 01(300) 

1280 DIM V1(800) 

1290 DIM V2(250) 

1300 DIM V3(100) 

1310 DIM V4(170) 

1320 DIM HB(100) 

1330 DIM FZ(100) 

1340 DIM PR(100) 

1350 DIM CN(100) 

1360 REM 

1370 REM assSSSSSSSS SITAS lTElTElEl”lElElOIOlOlO VOX 
1380 REM * DEFINICION DE VARIABLES * 
1390 REM alada SNS ISISJSISlETlElTRlJVJOJOK 


1400 REM 

1410 LET I=0 : REM INDICE DE SITIOS 

1420 LET IE=0: REM INDICE DE CAMINOS 

1430 LET IL=0: REM INDICE DE LISTA DE CAMINOS 
1440 LET IM=0: REM INDICE DE ENEMIGOS 

1450 LET IO=0: REM INDICE DE OBJETOS 

1460 LET IJ=0: REM INDICE DE LISTA DE OBJETOS 
1470 LET IC=0: REM INDICE DE CONDICIONES 

1480 REM 

1490 REM x*x** BUCLE DE CREACION *xx 

1500 REM 

1510 CLS 

1520 PRINT " LUGAR No. ";I+1 

1530 PRINT » 


1540 PRINT " Pulsa CONTROL-Q para que en este" 
1550 PRINT "lugar se borre la pantalla y CON-" 
1560 PRINT "TROL-P para saltar de linea. " 
1570 PRINT " Pulsa ENTER para terminar. " 
1580 PRINT 

1590 PRINT " (Que te dicen?" 

1600 PRINT 

1610 LINE INPUT A$ 

1620 IF A$="" THEN GOTO 2960 

1630 LET S$(1+1)=A$ 

1640 LET Y=CSRLIN+1 

1650 PRINT 

1660 PRINT "(De que clase es?" 

1670 PRINT 

1680 PRINT "1: Elegir camino” 

1690 PRINT "2: Luchar” 

1700 PRINT "3: Obtener objetos” 

1710 PRINT "4: Comprobar objetos" 

1720 PRINT "5: Fin del juego" 

1730 PRINT 

1740 PRINT "OPCION = ";CHR$(219);CHR$(29); 
1750 LET A$=INPUT$(1) 

1760 IF A$<"1" OR A$>"5"” THEN GOTO 1750 
1770 PRINT A$; 

1780 FOR Z=1 TO 400 

1790 NEXT Z 

1800 LET CL(I+1)=VAL(A$) 

1810 ON CL(I+1) GOTO 1830, 2100, 2300, 2640, 2900 
1820 REM 

1830 REM *xx*xx* ELEGIR CAMINO »x*oexk 

1840 REM 

1850 LET IN(1+1)=IL+1 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


2240, 


2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 


LET K=0 
LOCATE Y, 1 
FOR Z=1 TO 23-Y 
PRINT SPACE3(40) 
NEXT Z 
LOCATE Y, 1 
PRINT " Direccion No. ";K+1 
PRINT 
PRINT " Pulsa ENTER para terminar." 
PRINT 
INPUT B$ 
IF B$="" THEN GOTO 2060 
LET E$(IE+1)=BS$ 
PRINT 
PRINT "(A que numero de habitacion" 
INPUT "nos lleva";A 
LET V1(IE+1)=A 
LET IE=IE+1 
LET K=K+1 
GOTO 1870 
LET El(1L+1)=K 
LET IL=IL+1 
GOTO 2930 
REM 
REM *xx*x* LUCHAR x*xkxk 
REM 
LET IN(1+1)=IM+1 
LOCATE Y, 1 
FOR Z=1 TO 23-Y 
PRINT SPACE$( 40) 
NEXT Z 
LOCATE Y, 1 
INPUT "(Habilidad del enemigo";HB(IM+1) 
PRINT 
INPUT "(Fuerza del enemigo";FZ(IM+1) 
PRINT 
INPUT "(A Que habitacion vas si ganas";V2(3*IM+1) 
PRINT 
INPUT "(Y si abandonas";V2(3*IM+2) 
PRINT 
INPUT "(Y si pierdes";V2(3x*IM+3) 
LET IM=IM+1 
GOTO 2930 
REM 
REM *xx*x OBTENER OBJETOS *xxk 
REM 
PRINT 
LET IN(I+1)=1J+1 
LET K=0 
LOCATE Y, 1 
FOR Z=1 TO 24-Y 
PRINT SPACE$(40) 
NEXT Z 
LOCATE Y, 1 
PRINT "Objeto";K+1 
PRINT 
PRINT " Pulsa ENTER para terminar." 
PRINT 
INPUT B$ 
PRINT 
IF B$="" THEN GOTO 2570 
LET O$(10+1)=BS$ 
PRINT "Si te lo regalan pulsa 0" 
PRINT "Si lo has de comprar pulsa su precio" 
PRINT “Si lo tienes que coger tu, pulsa -1" 
PRINT 
INPUT "(Cuanto cuesta";PR(10+1) 
PRINT 
LET IO=10+1 


PROGRAMAS 


2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2880 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3080 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


LET K=K+1 
GOTO 2350 
LET 01(1J+1)=K 
PRINT 
INPUT "(A donde vas despues";V3(1J+1) 
PRINT 
LET IJ=1J+1 
GOTO 2930 
REM 
REM x*x** COMPROBAR OBJETOS *xx 
REM 
LET IN(1+1)=IC+1 
LOCATE Y, 1 
FOR Z=1 TO 23-Y 
PRINT SPACE$(40) 
NEXT Z 
LOCATE Y, 1 
PRINT "(Que objeto tienes que tener"; 
INPUT B$ 
FOR K=1 TO IO 
IF O$(K)=B$ THEN GOTO 2810 
NEXT K 
PRINT 
PRINT "Cuidado. Todavia no lo has definido" 
PRINT "No te olvides hacerlo. " 
PRINT 
LET CN(1C+1)=K 
PRINT 
INPUT "(A donde vas si lo tienes";V4(2*I1C+1) 
PRINT 
INPUT "(A donde vas si no lo tienes”;V4(2*1C+2) 
LET IC=IC+1 
LET I=I+1 
GOTO 1490 
REM 
REM xx*x* SITIO FINAL DE JUEGO x*xxk 
REM 
LET IN(1+1)=0 
LET I=1+1 
GOTO 149 
REM 
REM *xx*x* GUARDAR EL JUEGO EN CINTA O DISCO x*kxxk 
REM 
CLS 
PRINT " Prepara la cinta o el disco para" 
PRINT "grabar la aventura. " 
PRINT 
PRINT "PULSA UNA TECLA” 
LET A$=INPUT$(1) 
PRINT 
INPUT "(Nombre de la aventura";F$ 
TF F$="" THEN GOTO 2980 
PRINT 
PRINT “GRABANDO ... ";F$ 
PRINT 
PRINT "Espera un momento” 
OPEN F$ FOR OUTPUT AS $1 
PRINT $1, 1; IE; IL; IM;1I0;1J;I1C 
FOR K=1 TO I 
PRINT $1,S$(K) 
NEXT K 
FOR K=1 TO I 
PRINT +$1,CL(K); IN(K) 
NEXT K 
FOR K=1 TO IE 
PRINT +$1,E$(K) 
NEXT K 
FOR K=1 TO IE 
PRINT $1,V1(K) 
NEXT K 


3250 FOR K=1 TO IL 

3260 PRINT +$1,E1(K) 

3270 NEXT K 

3280 FOR K=1 TO IM 

3290 PRINT $1, HB(K);FZ(K);V2(3*K-2);V2(3*K-1);V2(3*K) 
3300 NEXT K 

3310 FOR K=1 TO I0 

3320 PRINT +$1,0$(K) 

3330 NEXT K 

3340 FOR K=1 TO IO 

3350 PRINT +$1,PR(K) 

3360 NEXT K 

3370 FOR K=1 TO 1J 

3380 PRINT +$1,01(K);V3(K) 

3390 NEXT K 

3400 FOR K=1 TO IC 

3410 PRINT $1,CN(K);V4(2x*K-1);V4(2x*K) 
3420 NEXT K 

3430 CLOSE +1 

3440 PRINT 

3450 PRINT " Aventura grabada. " 

3460 PRINT 4 

3470 PRINT " Utiliza el programa GAME2 para” 
3480 PRINT "ejecutarla y el programa GAME3" 
3490 PRINT "para imprimirla. " 

3500 PRINT 

3510 PRINT " Pulsa *T” para terminar" 

3520 LET A$=INPUT$(1) 

3530 IF A$<>"T" AND A$<>"t" THEN GOTO 3520 
3540 CLS 


3550 PRINT "Adios ...” 
3560 PRINT:PRINT:PRINT 


El programa no ha sido preparado para 3260 PRINT +9, El(K) 
SPECTRUM, pero funciona perfectamente 3290 PRINT 49, HB(K); FZ(K); VW2(3"K-2): 


en el IBM; para AMSTRAD y MSX hay que V2(3"K-1); V2(3+K) 
realizar los siguientes cambios: 3320 PRINT +49, OS(K) 
. 3350 PRINT 49, PR(K) 
eerloeón ne 3380 PRINT +9, O1(K); V3(K) 
640 LET Y=VWPO 3410 PRINT 49, CN(K); V4(2'K-1); V4(2'K) 
1750 LET A$=INKEYS 3430 CLOSEOUT 
1870 LOCATE 1,Y 3520 LET AS=INKEYS: IF A$="” THEN GOTO 
1910 LOCATE 1, 3520 
2130 LOCATE 1, 
2170 LOCATE 1, MSX: 


2350 LOCATE 


<<EEE<<X< 


1870 LOCATE 1,Y 

2390 LOCATE 1, 1910 LOCATE 1,Y 

2670 LOCATE 1, 2130 LOCATE 1,Y 

2710 LOCATE 1, 2170 LOCATE 1,Y 

3030 LET AS=INKEY$: IF AS="” THEN GOTO 2350 LOCATE 1,Y 

3030 2390 LOCATE 1,Y 

3110 OPENOUT 2670 LOCATE 1,Y 

3120 PRINT 49, l; IE; IL; IM; 1O; 13; IC 2710 LOCATE 1. Y 

3140 PRINT 49, S$(K) e 
3170 PRINT 49, CL(K); IN(K) A continuación vamos a ver una mini- 
3200 PRINT 49, ES(K) aventura de las que se pueden realizar 


3230 PRINT 49, V1(K) con este programa. Pueden confeccio- 


a PROGRAMAS 


narse aventuras todo lo complicado que 
se desee. Sólo tenemos que tener en 
cuenta la cantidad de memoria que gas- 
tamos. 

La figura 1 nos muestra cómo será el 


plano de la casa donde se desarrolla 
nuestra aventura. También veremos en 
dicha figura cómo están numeradas las 
habitaciones y qué tipo de habitación 
es: 


ABANDONAS 
lo) LO 
15 PIERDES 14 GANAS 20 


ELEGIR 
LUCHAR CAMINO 


FIN 
AVENTURA 


1 9 10 


3 


ELEGIR ELEGIR "COGER 
FIN AVENTURA CAMINO CAMINO Ml OBJETOS 
4 


ELEGIR 
CAMINO 


COGER 
OBJETOS 


COGER 
OBJETOS 


di 


En el plano de la aventura, las flechas 
indican la dirección por donde puede ir 
el jugador. Las flechas de doble sentido 
indican que se pueden pasar de una ha- 
bitación a otra, y viceversa. Las de una 
sola dirección aparecen después de pe- 
lear con alguien o después de utilizar (o 
no utilizar, si no se tiene) un objeto. 

Hemos hecho un segundo programa 


100 OPEN "AVENTURA" FOR OUTPUT AS +1 
110 RESTORE i 

120 READ 1, IE, IE1, IM, IO, 101, IC 

130 PRINT$1, 1; IE; IE1; IM; 10; 101; IC 
140 FOR K=1 TO 1 

150 READ A$ 

160 PRINT +$1,A$ 

170 NEXT K 


11 12 ¡Lonenes 13 


ELEGIR ELEGIR ELEGIR “ELEGIR. USAR 
CAMINO CAMINO CAMINO ¿CAMINO OBJETO AVENTURA 
2 7 8 


que se encarga de grabar esta aventura 
en disco o cinta. Preferimos hacerlo así a 
tener que decirle al lector cómo tiene 
que diseñar la aventura. De todas formas, 
ejecutando el programa que viene más 
adelante y echándole un ojo al plano de 
la aventura se puede ver en seguida 
cómo se ha construido. Se recomienda al 
lector que haga sus propias pruebas. 


180 FOR K=1 TO I 

190 READ A,B 

200 PRINT $1,A;B 

210 NEXT K 

220 FOR K=1 TO IE 

230 READ A$ 

540 CLOSE+$1 

240 PRINT +$1,A$ 

250 NEXT K 

260 FOR K=1 TO IE 

270 READ A 

280 PRINT $1,A 

290 NEXT K 

300 FOR K=1 TO IE1 

310 READ A 

320 PRINT $1,A 

330 NEXT K 

340 FOR K=1 TO IM 

350 READ A,B,C,D,E 

360 PRINT $1,A;B;C;D;E 

370 NEXT K 

380 FOR K=1 TO IO 

390 READ A+ 

400 PRINT +$1,A$ 

410 NEXT K 

420 FOR K=1 TO IO 

430 READ A 

440 PRINT $1,A 

450 NEXT K 

460 FOR K=1 TO IO1 

470 READ A,B 

480 PRINT $1,A;B 

490 NEXT K 

500 FOR K=1 TO IC 

510 READ A,B,C 

520 PRINT +$1,A;B;C 

530 NEXT K 

950: DATA 20, 21-10: 0d) ds 

560 DATA "Estas en el cuarto de estar de AL-MALONEQuieres escapar y no sabes com 

o hacerlo." 

561 DATA "Has entrado en la cocina.Enfrente ves un armario y a la derecha la te 

rraza." 

562 DATA "Has entrado en la terraza y, antes de , que te des cuenta, te han disp ' 

arado un tiro entre los ojos.Estas muerto. " 

563 DATA "Te acercas al armario y ves que esta ce-rrado.No saber que hacer. " 

564 DATA "Has roto el armario (haciendo mucho rui-do) y ves que dentro hay comid 

as 

565 DATA "Al registrar el armario ves un bote de laca de mujer en spray." 

566 DATA "Estas en el cuarto de bano.La ducha es ta lista.” 

567 DATA "Al mirar en la ducha alguien te agarra del cuello.Le das una patada y 
le dejastieso.Le quitas la pistola." / 

568 DATA "Estas en un pasillo oscuro. ” 

569 DATA "Estas en un pasillo oscuro." 

570 DATA "Estas en un pasillo oscuro." 

571 DATA "Ante ti ves la puerta de la calle. Ya te ves libre." 

572 DATA "Has conseguido salir de la casa.Eres libre.FELICIDADES. " 

573 DATA "Entras en el hall.Te encuentras de bruces con AL-MALONE. TIENES QUE LUC 

HAR !!" 

574 DATA "Lo siento. AL-MALONE te ha matado.Otro dia sera. " 

575 DATA "Estas en la biblioteca.No ves nada.De pronto alguien te ataca. " 

576 DATA "Lo siento el esbirro de AL-MALONE te ha hecho pure.Estas muerto. " 

577 DATA "Has rociado al ganster con el Spray.Al dejarle ciego has aprobechado p 

ara partirle la cara." 

578 DATA "Estas frente al piano.Es muy bonito pero no puedes tocarlo ahora." 

579 DATA "Le quitas a AL-MALONE las llaves de la casa. Ya puedes salir (si quier 

es)." 

380: DATA TAE O O AS a cr A O 

PAS A o A O A O A O SAA A 
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581 DATA "Sur" 

582 DATA "Este" 

583 DATA "Ir al armario" 

584 DATA "Terraza" 

585 DATA "Este" 

:586 DATA "Norte" 

587 DATA "Romper el armario" 

588 DATA "Pasar de hacer ruido" 

589 DATA "Oeste" 

590 DATA "Ducha" 

591 DATA "Oeste" 

592 DATA "Este" 

593 DATA "Norte" 

594 DATA "Oeste" 

595 DATA "Este" 

596 DATA "Oeste" 

597 DATA "Este" 

598 DATA "Norte" 

599 DATA "Salir al pasillo" 

600 DATA "Mirar el piano" 

601 DATA "Este" 

e A A PTE IM E MO MO A A A A? 
Le de IA Le 

SOJIDADA e, Ps O a vd ar a 

GOLDATA 19% 7 LO 20.15 , 15 

605 DATA "Comida" 

606 DATA "Spray" 

607 DATA "Pistola" 

608 DATA "Llaves" 

609 DATA -1 ,-1,0,0 


SAO A dd LO 


13 11, 2 


LUGAR Mo. 1 


IPD seohorre fa rpantilia”) SN: 
ulsa ENTER Para term nar. 

¿Que te dicen? 
Estas en tu 


LUGAR Mo. 26 

EA CO AS ade 
Motor z ENTER Sale edema” 

¿Que te dicen? 


EPA EAIPOUAN HER | 


¿De que Aa e 
: ER an camino 
y BE od 
: ”n Pro mucoe tos 


| orcIon = 1 
, 


Í Ejemplo de diseño 


de una aventura. 


Definición de los enemigos. 


MEetao e en la guarida de AL-MA ntr 
“ 


de su a 
MID A ner que PU os ar quardrppe «já Las 
15Sto para empuez 


Habilidad del enemigo? 8 

iuerza del enemiyo? 8 

<A Uue habitacion vas si yanas? 32 
«Y ss ahandonas? 34 

¿Y 4 pierdes? 34_ 


[A Así aparecerá el texto que se 
introdujo en la Fig. 2, 

cuando ejecutemos el programa 
“GAME-2”. 


Ca Secreto te pcaba de dar un 
1 a misio 
ce 


” 
Urapel a 

pa QUE CAPTURAR A AL-MALONE” 

Mo tienes ni idea de por donde empezar . 


Las modificaciones que hay que hacer 
para que este segundo programa funcio- 
ne en el AMSTRAD son las siguientes: 


AMSTRAD: 


FEV 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


El siguiente programa (GAME-2) será el 
que nos permita ejecutar el programa 
que hemos definido con GAME-1. No 
hace falta explicar nada sobre su funcio- 
namiento, ya que es autoexplicativo. 


SS 
*k PROGRAMA PARA EJECUTAR LOS JUEGOS x* 
* REALIZADOS CON EL DISENADOR DE A- *x 


*k VENTURAS (GAME-1) 


k 


ES 


ES 


k AUTORES k 
M7 0 iaa k 
*k MANUEL  ALFONSECA * 
*k Y k 


*k FRANCISCO MORALES x* 
AOS lojo jolla jojololojojok 


ES 
x**x*k (c) Ed. Siglo Cultural *xx*x* 
daokk (c) 1987 JOOHOK 
ISO lola lalalala lalalala jala jolojSloja lolo jolojojok 


HRAACAAAACEEEEA AE 
* DEFINICION DE LAS TABLAS *x 
ISSO ajaja jajajaj lolalalalalolololololojoK 


S$(300) 
E$(800) 
O$(100) 
CL(300) 
IN(300) 
E1(300) 
01(300) 
v1(800) 
v2(250) 
v3(100) 
v4(170) 
HB(100) 
FZ(100) 
PR(100) 
CN(100) 
E2(401) 
02(401) 
TI(100) 
NO(30) 


***k INICIALIZACION DE VARIABLES *xx* 


s1=0 
s2=0 
S3=0 


xxkxk CARGA DEL JUEGO DESDE DISCO O CINTA x*xx* 


PROGRAMAS 


1510 CLS 

1520 PRINT " Comprueba que la cinta o el” 
1530 PRINT "disco estan colocados. " 

1540 PRINT 

1550 PRINT "PULSA UNA TECLA” 

1560 LET A$=INPUT$(1) 

1570 PRINT 

1580 INPUT "(Nombre de la aventura";F$ 
1590 IF F$="" THEN GOTO 4050 

1600 OPEN F$ FOR INPUT AS $1 


1610 PRINT 

1620 PRINT "CARGANDO ... "“;F$ 
1630 PRINT 

1640 PRINT "Espera un momento. * 
1650 PRINT 


1660 INPUT $1,I, IE, IE1, IM, 10, 101, IC 
1670 FOR K=1 TO I 

1680 LINE INPUT $1,S$(K) 

1690 NEXT K 

1700 FOR K=1 TO I 

1710 INPUT +$1,CL(K), IN(K) 

1720 NEXT K 

1730 FOR K=1 TO IE 

1740 LINE INPUT $1,E$(K) 

1750 NEXT K 

1760 FOR K=1 TO IE 

TT INPUT +$1,V1(K) 

1780 NEXT K 

1790 FOR K=1 TO IE1 

1800 INPUT +1,E1(K) 

1810 NEXT K 

1820 FOR K=1 TO IM 

1830 INPUT $1,HB(K),FZ(K),V2(3*K-2),V2(3*K-1),V2(3x*xK) 
1840 NEXT K 

1850 FOR K=1 TO IO 

1860 LINE INPUT $1,O$(K) 

1870 NEXT K 

1880 FOR K=1 TO IO 

1890 INPUT +$1,PR(K) 

1900 NEXT K 

1910 FOR K=1 TO I01 

1920 INPUT +1,01(K),V3(K) 

1930 NEXT K 

1940 FOR K=1 TO IC 

1950 INPUT *1,CN(K),V4(2*K-1),V4(2*K) 
1960 NEXT K 

1970 CLOSE +1 

1980 PRINT "La aventura: ";CHR$(34);F$;CHR$(34);" esta cargada. " 
1990 PRINT 

2000 PRINT "PULSA UNA TECLA” 

2010 LET A$=INPUT$(1) 

2020 CLS 

2030 REM 

2040 REM *xx* COMIENZA EL JUEGO x*xxk 
2050 REM 

2060 LET PO=1 

2070 FOR J=1 TO IEl 

2080 FOR K=1 TO J 


2090 LET E2(J+1)=E2(J)+E1(K) 
2100 NEXT K 
2110 NEXT J 


2120 FOR J=1 TO IO1 
2130 FOR K=1 TO J 


2140 LET 02(J+1)=02(J)+01(K) 
2150 NEXT K 
2160 NEXT J 


2170 LET IT=0 
2180 RANDOMIZE TIME 
2190 LET HA=10+INT(RNDx*10) 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 


do y" 


2820 
2830 
2840 
2850 
2860 
2870 
2880 


LET FU=10+INT(RNDx10) 
LET DO=200+INT(RND*x100) 
PRINT " Aqui estan tus poderes: " 


PRINT 

PRINT "Tu habilidad es ....";HA 
PRINT “Tu TUersáa en ....... "FU 
PRINT 

PRINT "Tienes";DO; "Pesetas" 
PRINT 

PRINT "PULSA UNA TECLA" 


LET A$=INPUT$(1) 

CLS 

REM 

REM x*x** BUCLE PRINCIPAL DE JUEGO »*xx 
REM 

A$=S$(PO) 

PRINT 

FOR Z=1 TO LEN(A$) 


IF MID$(A$,Z,1)=CHR$(16) THEN PRINT CHR$(13);:GOTO 2410 
IF MID$(A$,Z,1)=CHR$(17) AND Z=1 THEN CLS:GOTO 2410 
PRINT MID$(4$,2,1); 

NEXT Z 

PRINT 

PRINT 

LET A=IN(PO) 

ON CL(PO) GOTO 2470, 2640, 3060, 3920, 4040 

REM 

REM *** ELEGIR CAMINO *xx 

REM 

LET B=1 

IF El1(A)=1 THEN GOTO 2610 


FOR K=1 TO El1(A) 


PRINT K;":";E$(E2(A)+K) 
NEXT K 
PRINT 
PRINT "(Que camino eliges? ";CHR$(219);CHR$(29); 


LET A$=INPUT$(1) 

IF A$<"1" OR A$>"9" OR VAL(A$)>E1(A) THEN GOTO 2560 
LET B=VAL(A$) 

PRINT A$ 

PRINT 

LET PO=V1(E2(A)+B) 

GOTO 2330 

REM 

REM x*x** LUCHA CONTRA UN ENEMIGO xxx 

REM 

LET H=HB(A) 

LET F=FZ(A) 

IF FU>4 THEN GOTO 2760 

PRINT 

PRINT " Te estas agotando de luchar. " 

PRINT " (Quieres abandonar? (S/N) ";CHR$(219);CHR$(29); 
LET A$=INPUT$(1) 

IF A$<>"S" AND A$<>"s"” AND A$<>"N" AND A$<>"n"” THEN GOTO 2720 
PRINT A$ 

IF A$="S" OR A$="s" THEN GOTO 3030 

LET AA=HA+1+INT(RNDx*11) 

LET BB=H+1+INT(RND*x11) 

PRINT 

IF AA=BB THEN PRINT " Los dos fallasteis el golpe." 

IF AA>BB THEN PRINT " Le has dado y le has dejado tonto. " 
IF AA<BB THEN PRINT " Te ha dado un punetazo. ":PRINT "Te has quedado atonta 
¡PRINT "pierdes un punto de tu fuerza." 

PRINT 

IF AA<BB THEN FU=FU-1 

FOR V=1 TO 400: NEXT Y 

IF FU=0 THEN GOTO 2970 

IF AA>BB THEN F=F-1 

IF F=0 THEN GOTO 2900 

GOTO 2680 


PRINT 
PRINT " Le has matado. Eres un fiera." 
PRINT " Enhorabuena campeon." 
PRINT 
LET PO=V2(3xA-2) 
FOR V=1 TO 1000:NEXT Y 
GOTO 2330 
PRINT 
PRINT " Te ha vencido. Lo siento" 
PRINT " Mucha sera la gente que te llore." 
FOR V=1 TO 1000:NEXT V 
PRINT 
LET PO=V2(3xA) 
GOTO 2330 
LET PO=V2(3xA-1) 
GOTO 2330 
REM 
REM *** OBTENER OBJETOS x*xx 
REM 
LET Q=0 
FOR K=1 TO O1(A) 
IF PR(O2(A)+K)<>0 THEN S1i=1:GOTO 3200 
IF Q=0 THEN PRINT:PRINT ” Te dan los siguientes objetos: " 
LET Q=1 
PRINT 
PRINT 0$(02(4)+K) 
LET A$=0$(02(A4)+K) 
GOSUB 4160 
LET TI(IT+1)=02(A)+K 
LET IT=IT+1 
LET 01(A)=01(4)-1 
NEXT K 
LET Q=0 
FOR K=1 TO O1(A) 
IF PR(02(A)+K)<=0 THEN S2=1:GOTO 3290 
IF Q=0 THEN PRINT:PRINT "Puedes comprar los siguientes objetos" 
IF Q=0 THEN PRINT:PRINT "con las";DO; "pesetas que tienes: ":PRINT 
LET Q=0+1 
PRINT Q;":";0$(02(A)+K) 
LET NO(Q)=02(4)+K 
NEXT K 
IF Q=0 THEN GOTO 3600 
PRINT:PRINT "(Cuantos quieres? ";CHR$(219);CHR$(29); 
LET A$=INPUT$(1) 
IF A$<"0" OR A$>"9" THEN GOTO 3320 
LET B=VAL(A$) 
PRINT A$ 
PRINT 
IF B>01(A) THEN PRINT:PRINT " No hay tantos objetos. ":GOTO 3310 
IF B=0 GOTO 3590 
PRINT "(Que numeros quieres?" 
PRINT "Damelos de uno en uno. ” 
PRINT 
FOR K=1 TO B 
INPUT "objeto = ";N ; 
IF N<1 OR N>01(A) THEN PRINT:PRINT " Ese objeto no esta. ":PRINT:GOTÓ 343 


LET N=NO(N) 

IF PR(N)>DO THEN GOTO 3530 
LET TI(IT+1)=N 

LET IT=IT+1 

LET DO=DO-PR(N) 

LET A$=0$(02(A)+N) 

GOSUB 4160 

GOTO 3570 

PRINT:PRINT "No tienes bastante dinero para" 
PRINT "comprar ";O$(02(A)+N) 
LET K=01(A) 

GOTO 3580 


LET 01(A)=01(A)-1 
NEXT K 
LET Q=0 
FOR K=1 TO O1(A) 
IF PR(02(A)+K)>=0 TREN S3=1:GOTO 3660 
IF Q=0 THEN PRINT "Puedes coger los siguientes objetos: ":PRINT 
LET Q=Q+1 
PRINT Q;":"";0$(02(A)+K) 
LET NO(Q)=02(A)+K 
NEXT K 
IF Q=0 THEN GOTO 3870 
PRINT:PRINT "(Cuantos quieres? ";CHR$(219);CHR$(29); 
LET A$=INPUT$(1) 
IF A$<"0" OR A$>"9" THEN GOTO 3690 
LET B=VAL(A$) 
PRINT A$ 
IF B>01(A) THEN PRINT:PRINT " No hay tantos objetos. ":GOTO 3680 
IF B=0 GOTO 3870 
PRINT:PRINT "(Que numeros quieres?” 
PRINT "Damelos de uno en uno. ":PRINT 
FOR K=1 TO B 
INPUT "Objeto = ";N 


IF N<i OR N>01(A) THEN PRINT:PRINT " Ese objeto no esta. ":PRINT:GOTO 378 


LET A$=0$(02(A)+N) 
GOSUB 4160 
LET 01(A4)=01(A)-1 
LET N=NO(N) 
LET TI(IT+1)=N 
LET IT=IT+1 
NEXT “K 
LET PO=V3(A) 
LET Si=0:LET S2=0:LET S3=0 
FOR V=1 TO 500:NEXT V 
GOTO 2330 
REM 
REM x*x** COMPROBAR OBJETOS x*xxk 
REM 
FOR K=1 TO IT 
IF CN(A)=TI(K) THEN GOTO 4000 
NEXT K 
PRINT:PRINT "Lo siento. «'No tienes ";O$(CN(A)) 
LET PO=V4(2*A) 
GOTO 2330 
PRINT:PRINT "Tienes suerte. Tenias ";O$(CN(A)) 
LET PO=VY4(2*A-1) 
FOR V=1 TO 500:NEXT V 


GOTO 2330 

REM CASILLA FINAL DEL JUEGO 

PRINT 

PRINT " El juego ha terminado. " 

PRINT 

PRINT " (Quieres jugar otra vez? (S/N)" 


LET A$=INPUT$(1) 

IF A$="s" OR A$="S" THEN CLS:GOTO 1600 
IF A$<>"n" AND A$<>"N" THEN GOTO 4090 
PRINT 

PRINT " Hasta la vista.” 
PRINT:PRINT:PRINT 

END 

REM 
NES 
REM * RECONOCER OBJETOS ESPECIALES * 
NES 
REM 


IF A$="Comida" THEN LET FU=FU*x2:PRINT:PRINT " Ahora tu fuerza es: ";FU:PR 


IF A$="Daga” THEN LET HA=HA+10:PRINT:PRINT " Ahora tu habilidad es: "HA:P 
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4230 IF A$="Sable" THEN LET HA=HA*2:PRINT:PRINT " Tu habilidad ha aumentado a 


: "HA: PRINT 


4240 IF A$="Pistola" THEN LET HA=HA*3:PRINT:PRINT " Tienes una habilidad de:" 


HA: PRINT 


4250 IF A$="Leche" THEN LET FU=INT(FU*x1.5):PRINT:PRINT " Tienes una fuerza de 


"5 FU: PRINT:- 


4260 IF A$="Vitaminas" THEN LET FU=FU*3):PRINT:PRINT " Tu fuerza es igual a:”" 


¡FU:PRINT 


4270 RETURN 


Las modificaciones que hay que reali- 
zar son las siguientes: 


AMSTRAD: 


1560 LET AS=INKEYS: IF AS="” THEN GOTO 
1560 

1600 OPENIN 

1660 INPUT ¿+9,1,1E,1E1,IM,10,101,1C 

1680 LINE INPUT +9,S$(K) 

1710 INPUT 9,CL(K),IN(K) 

1740 LINE INPUT 4+9,ES(K) 

1770 INPUT +9,V1(K) 

1800 INPUT ++9,E1(K) 

1830 INPUT +9,HB(K), FZ(K), V2(3"K-2), 
V2(3"K-1), V2(3'K) 

1860 LINE INPUT +:9,0$(K) 

1890 INPUT ++9,PR(K) 

1920 INPUT 49,0 1(K),V3(K) 

1950 INPUT ++9,CN(K),V4(2"K-1),V4(2'K) 

1970 CLOSEOUT 

2010 LET A$=INKEYS:IF A$="” THEN GOTO 
2010 

2190 LET HA=10+INT (RND(1)"10) 

2200 LET FU=10+INT (RND(1)"10) 

2210 LET DO=200+INT (RND(1)'100) 

2300 LET AS=INKEYS:IF AS"” THEN GOTO 
2300 

2560 LET A$=INKEYS$:IF A$="” THEN GOTO 
2560 


2720 LET AS=INKEYS:IF AS“” THEN GOTO 
2720 


2760 LET AA=HA+1+INT (RND(1)"11) 

2770 LET BB=H+1+INT (RND(1)'11) 

3320 LET AS=INKEYS:IF A$="” THÉN GOTO 
3320 

3690 LET A$=INKEYS:IF A$="” THEN GOTO 
3690 


4090 LET AS=INKEYS:IF AS="” THEN GOTO 
4090 


MSX: 


2190 LET HA=10+INT (RND(1)"10) 
2200 LET FU=10+INT (RND(1)"10) 
2210 LET DO=200+INT (RND(1)'100) 
2760 LET AA=HA+1+INT (RND(1)*11) 
2770 LET BB=H+1+INT (RND(1)'11) 


MOE 
“TIENES QUE CAPTURAR A AL-MALONE"' 
No tienes ni idea de por donde empezar. 


¡Eo 


¿Que camino eliges? E 


Ejecutando el programa “GAME-2”. 


Estas en la guarida de AL-MALOME . 
Enfrente tienes a uno de sus guardaespal 
Vas a tener que luchar con el. 

¿Estas listo para empezar? 


Los dos fallasteios el golpe. 
Le has dado y te ha dejado tonto. 


NDEPENDIENTEMENTE 
del hecho de que el 
documento sea 
preimpreso o se dise- 
ñe para ser escrito ín- 
tegramente con la 
impresora del orde- 
nador, hay que tener 
en Cuenta otros elementos respecto de 
su aspecto general: 

b) Presentación. Aunque, evidente- 
mente, siempre es útil cuidar que el as- 
pecto de cualquier documento sea 
agradable, éste es un detalle muy a te- 
ner en cuenta cuando los documentos 
que se diseñan van a ser utilizados por 
personas ajenas al proceso de datos (e, 
incluso en ocasiones, con cierta animad- 
versión hacia él). Así, sin despreciar los 
restantes detalles, hay que cuidar algu- 
nas características que dan un aspecto 
más agradable al documento que se di- 
seña: 

— Tamaño de la letra. En la mayoría 
de las impresoras la altura de los carac- 
teres es fija, pero no la anchura de ellos: 
conviene disponer que se escriba con la 
letra mayor que el contenido del docu- 
mento, su tamaño exterior, etc., permi- 
tan. Aunque en las impresoras de matriz 
de puntos (las más extendidas en la in- 
formática personal y profesional) se pue- 
de variar dentro de un documento (e in- 
cluso dentro de una línea) la anchura de 
los caracteres, en las impresoras de lí- 
neas esto no es posible. En cualquier 
caso, debe estudiarse con cuidado esta 
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DISEÑO DE DOCUMENTOS 


variación de la anchura de los caracte- 
res, pues suele ser fuente de errores y dis- 
minuye la “portabilidad” del programa 
que escribe los datos (pueden variar los 
caracteres especiales de control de la 
impresora al pasar a otro equipo). 

También hay que estudiar el valor ópti- 
mo; de la separación entre líneas (1/6, 
1/8 de pulgada o valores no estándar), 
pues es un parámetro variable en prácti- 
camente todas las impresoras profesio- 
nales. 

Por el contrario, hay quien defiende la 
uniformidad de modo de escritura (tama- 
ño de letra, separación de líneas...) por 
razones de ahorro de tiempo, simplici- 
dad, transportabilidad, etc. En los cen- 
tros de proceso de datos (CPD's) es usual 
que se establezcan valores estándares 
para estas características (variables, a lo 
sumo, según el tipo de documento, pero 
nunca al arbitrio del analista). 

— Color y sombreados. Aunque el pa- 
pel no sea preimpreso, se puede elegir, 
en ocasiones, el color de fondo (espe- 
cialmente si se escribe en hojas sueltas) 
o, al menos, entre un papel pautado (el 
conocido “papel pijama”) o uno blanco. 

— Gráficos. Siempre que sea posible 
se deberá incluir algún pequeño gráfico, 
algún rótulo fijo (en letra grande, subra- 
yado, todo en mayúsculas...), algunas lí- 
neas separadoras, etc., para dar un poco 
de variedad y “movimiento” al documen- 
to. También-es útil con esta finalidad sus- 
tituir (en la medida de lo posible) las ta- 
blas y cuadros de cifras por gráficos o re- 
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presentaciones visuales de cualquier 
tipo. 

— Márgenes. Hay que tener en cuen- 
ta que un margen izquierdo ancho “ali- 
gera” un documento. Una buena prácti- 
ca adicional es no aprovechar el espa- 
cio de papel hasta el borde derecho, 
sino dejar un buen margen y “sacar” a 
este margen algunas informaciones y da- 
tos que interese subrayar. 


C) Distribución de los datos en el do- 
cumento. Es importante que la distribu- 
ción de las informaciones que se ofrecen 
en el documento de salida sea: 


— Clara. Es decir, que el documento 
tenga cierta lógica, se agrupen en él los 
datos por conceptos y “separen” en al- 
guna medida las distintas “zonas” del do- 
cumento. 

— Ordenada. En efecto, conviene que 
exista cierta secuencia en los datos que 
se presentan: datos de total al principio, 
con las líneas de desglose detrás o líneas 
de detalle con sus totales acumulados al 
final. 

— Condensada. Deben escribirse to- 
dos los datos necesarios, pero teniendo 
en cuenta que es tan desagradable para 
quien utiliza un listado no tener el dato 
que necesita como que esa información 
esté rodeada de otras muchas cifras no 
significativas, entre las cuales “se pier- 
de”. 

d) Tamaño del documento de salida. 
En la mayoría de los CPD's existen normas 
sobre los tamaños de los documentos y 
a ellas habrá de someterse el analista al 
diseñar un impreso de salida; pero aun- 
que no sea así, es útil tratar de mantener- 
se dentro de los valores estándar: la lon- 
gitud de los papeles más comunes es de 
11ó 12 pulgadas (27,94 Ó 30,48 cm), lo 
que supone escribir unas 56 ó 62 líneas, 
respectivamente (a 1/6 pulgada y 
dejando 10 líneas para cabeceras, pies, 
numeración de páginas, etc.). En cuanto 
a la anchura, lo normal es disponer de 80 
columnas (con un ancho unitario de 1/10 
de pulgada) o 132 columnas, lo que su- 
pone un papel con una anchura total de 
10 y 15 pulgadas respectivamente (va- 
riando el ancho en función del tipo de 
papel elegido, las características de la 
impresora que se utiliza, etc.). 

e) Formato general del documento. En 
todo documento de salida se suelen in- 
cluir tres zonas de datos (y en ocasiones 


un grupo de comentarios, códigos, ins- 
trucciones de utilización, etc). 

Estas zonas conviene que estén clara- 
mente separadas para una más fácil 
identificación de los datos escritos. Sue- 
le existir una zona de cabeceras, otra de 
pies de página y otra tercera que forma 
el cuerpo del documento. 


— Cabeceras. Es usual disponer varias 
líneas (de una a tres habitualmente) con 
los datos fijos del documento: nombre 
del documento, identificación del orga- 
nismo, empresa o departamento que 
emite esos datos, fecha de creación, có- 
digos identificativos, número de página, 
etcétera. Es importante determinar si las 
diferentes hojas del documento van a ser 
separadas (para poner en cada una de 
ellas toda la identificación) o no (en 
cuyo caso se limitarán los datos incluidos 
en cada hoja a lo estrictamente necesa- 
rio para su localización y para que resul- 
te estético el conjunto). 


— Pies de página. Se pueden incluir a 
pie de página (una o dos líneas a lo 
sumo) comentarios o datos complemen- 
tarios a los incluidos en el cuerpo del do- 
cumento. A veces se ponen algunas de 
las informaciones indicadas anteriormen- 
te para las cabeceras (nombre y núme- 
ro de página, es lo más usual) al pie del 
documento. En ocasiones (casi siempre 
en preimpresos de una sola hoja) se in- 
cluyen al pie espacios y recuadros para 
controles, firmas o anotaciones manua- 
les diversas. 


— Centro del documento. La mayoría 
del espacio útil de una página debe es- 
tar dedicada a los datos variables. Es 
usual establecer la longitud del docu- 
mento en 56 ó 62 líneas (papeles de 11 
ó 12 pulgadas, respectivamente). 

Naturalmente, estos apartados se ven 
de un modo diferente si se diseña un 
preimpreso o si ha de escribirse todo en 
la impresora del ordenador; en el primer 
caso, se pueden preparar datos preim- 
presos exhaustivos con tablas de códi- 
gos, instrucciones, etc.; en el segundo, 
ha de reducirse al máximo la escritura de 
datos fijos que consumen tiempo de pro- 
ceso y espacio de memoria (en el orde- 
nador) y tiempo de impresión. Si se utili- 
za un papel preimpreso se puede minimi- 
zar (o, incluso, suprimir) el pie de página 
y pasar todos los datos que se suelen in- 
cluir en él, al dorso del papel. 
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a Otras formas 


if X=6 then S6 


de la if X=7 tner 87 
instrucción e 100 Ene se. 
condicional 


A instrucción IF-THEN- 
ELSE es la única forma 


de instrucción condi- 
cional del lenguaje El organigrama que corresponde a 


BASIC. Sin embargo, este programa es el siguiente: 


otros lenguajes más 
avanzados permiten 
utilizar otras, más 
complejas, que aumentan las posibilida- 
des del programador y simplifican la es- 
critura y la interpretación de los progra- 
mas. Una de estas formas es la instruc- 
ción CASE de PASCAL. 

Supongamos que tenemos una varia- 
ble X que puede tomar varios valores di- 
ferentes, por ejemplo: 1, 2,3, 4,5, 6,7, 8. 
En nuestro programa deseamos ejecutar 
la instrucción S1 si el valor de X es igual 
a 1; pero si es igual a 2, en lugar de S1 
queremos ejecutar S2, y así sucesiva- 
mente. Finalmente, si X es igual a 8, eje- 
cutaremos la instrucción S8. Pero si X no 
tiene ninguno de los valores anteriores, 
ejecutaremos la instrucción S9. 

Por supuesto, es posible construir un 
programa que se comporte así, utilizan- 
do tan sólo la instrucción IF-THEN-ELSE. 
Veamos cómo se haría: 


if X=1 then Si 
4 else 
if X=2 then S2 


else 
if X=3 then S3 
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que, como se ve, es bastante complejo 
para tratarse de una sola instrucción. Por 
eso, en PASCAL existe la estructura CASE, 
que viene a ser una abreviatura de la ins- 
trucción anterior. Con ella, nuestro ejem- 
plo se escribiría así: 


cuyo organigrama puede reducirse a: 


No todos los compiladores de PASCAL 
permiten utilizar la palabra reservada 
ELSE, que aparece al final de nuestro 
ejemplo para especificar lo que hay que 
hacer si el valor de X no pertenece a nin- 
guno de los casos especificados. En al- 
gunos compiladores esta palabra se sus- 
tituye por OTHERWISE (“de lo contrario”, 
en inglés). En otros, está totalmente pro- 
hibida. Si esto ocurre, cuando el valor de 
la variable de control de la estructura 
CASE se encuentra fuera de lo previsto, 
no se ejecutará nada. El organigrama 
correspondiente será el mismo de la figu- 
ra anterior, eliminando el bloque marca- 
do con S9. 

No es necesario que los valores que 
puede tomar la variable de control del 


bloque CASE tengan que ser consecuti- 
vos. Podrian estar salteados. Por ejemplo: 


Ni siquiera es necesario que se trate de 
numeros. Podria tratarse de otros tipos de 
datos. Por ejemplo: 


var Cz char; 


case C of 
As Siz 
E”: 82; 
1” 833 
>0”3 S4; 
”0”2 


cuyo organigrama es: 


También podría ocurrir que varios de 
los casos coincidieran. En nuestro primer 
ejemplo, S1 podría ser igual a $3 y a S7, 
mientras $2 podría ser igual a S5, S4, Só, 
S8 y S9 serían independientes entre sí. En 
tal caso, la instrucción CASE puede sim- 
plificarse aún más, reuniendo los casos 
comunes en uno solo: 


y el organigrama sería: 


LETS 


Las instrucciones Sl, S2, etc., pueden 
ser de cualquier tipo. Podrían ser instruc- 
ciones IF-THEN-ELSE, bucles, instrucciones 
de asignación o bloques secuenciales 
de instrucciones. Veamos un ejemplo de 
este último caso: 


case X of 
1,3,7:2 Y:=3; 
begi 


2,5: n 
Y:=4; 
if Z2=12 then Yi=Y+1 
else Y:=Z-1 


end; 
4: if Z=3 then Y:=4 
else Z:=Z+1; 
writeln ("Caso 6”) 


cuyo organigrama es: 


En el lenguaje APL es posible construir 
estructuras de control semejantes a ésta 
utilizando la operación descrita al hablar 
del bloque IF-THEN. Para ello, basta cons- 
truir una matriz de caracteres, cada una 
de cuyas filas sea una de las instruccio- 
nes S1, $2, etc. Después indexaremos esa 
matriz por el número de la fila que se de- 
sea ejecutar y aplicaremos el símbolo de 
ejecución. 

Veamos algunos ejemplos: 
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Se. LS 2 La.” 
SeS, [1)' YeY+1' 
SeS, [17' Y-Z-1' 
SeS, [17 ' YrYu2' 
Ss 


La primera línea de este ejemplo asig- 
na a la variable S una matriz de una fila 
y cinco columnas (la longitud de la línea 
más larga que tenemos que ejecutar 
condicionalmente) cuyo valor es igual a 
la primera instrucción a ejecutar, en- 
cerrada entre comillas y completada 
con blancos hasta la longitud indicada. 

La segunda línea añade a la variable S 
una nueva fila (la segunda) con la segun- 
da instrucción. También en este caso se- 
ría preciso completarla con blancos has- 
ta el tamaño indicado, de no ser porque 
esta instrucción es exactamente igual a 
dicho tamaño. 

Las líneas tercera y cuarta concatenan 
nuevas líneas a la variable S, que así 
pasa a tener cuatro filas y cinco colum- 
nas. 

La línea quinta nos presenta el valor de 
S, para comprobar que es exactamente 
el deseado. 

Por fin, la última línea indexa la tabla S 
por la fila correspondiente al valor de X 
(es decir, selecciona una fila) y la ejecu- 
ta. Por tanto, si X es igual a 1, se ejecuta- 
rá la primera fila; si es igual a 2, la segun- 
da; si es igual a 3, la tercera y si es igual 
a 4, la cuarta. Veamos el organigrama 
correspondiente: 


El ejemplo anterior sólo es aplicable en 
el caso de que los valores de X sean con- 
secutivos, comenzando en 1. El ejemplo 
siguiente elimina esta restricción. Supon- 
dremos que S es la misma matriz que en 
el caso anterior. 


En esta instrucción, si X es igual a 1, se 
ejecutará la primera línea de S; si es igual 
a 2, la segunda; y así sucesivamente. El 
organigrama será el mismo que el del 
programa anterior, sustituyendo los valo- 
res de X (1, 2, 3, 4) por los nuevos (1,3, 
-3,25). 

No es necesario que los valores de X 
sean números. Pueden muy bien ser ca- 
racteres, como en el siguiente ejemplo: 


£, (X='ABCD' )4S 


donde se ejecutará la primera línea de S 
si X es igual al carácter 'A', la segunda si 
es igual a 'B', y así sucesivamente. 
También es posible agrupar varios va- 
lores de X que correspondan a la misma 
línea de S. Para ello, APL utiliza la termi- 
nología de la teoría de conjuntos: 


2, ((Xe1 3 7), (Xe2 5),X=4 6)4S 


En este caso, si X vale 1, 3ó 7 (es de- 
cir, si pertenece al conjunto 13 7), se 
ejecutará la primera línea de S. Si X vale 
20 5 se ejecutará la segunda. Si es igual 
a 4 la tercera y si es igual a 6 la cuarta. 
Obsérvese que es posible mezclar las 
dos formas de seleccionar las líneas en 
la misma instrucción. 
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ISTRIBUIDO por Lotus 
Development, tene- 
mos ante nosotros un 
paquete de aplica- 
ción muy completo, 
con una gran acepta- 
ción en el mundo pro- 
fesional donde se 
adopta la hoja de cálculo o el paquete 
completo como herramienta de gestión. 

Para utilizarlo debe disponer de un 
equipo de IBM o compatible con un míni- 
mo de 256 Kb de memoria RAM. 

En Lotus 1-2-3 la estructura fundamental 
para organizar y almacenar los datos es 
la hoja de trabajo. La capacidad de la 
misma es de 256 columnas y 8.192 filas. 

Pero dejémonos de comentarios y pa- 
semos a iniciar la sesión de trabajo 
correspondiente: 

Teclee LOTUS y pulse (Intro) 


1-2-3 PrintGraph Install 'tilidid-Translate Fin 
gotas, Buzon 


JU Access de 1-2-3 


Copyright 1906 
Lotus Developaent Corporat1on 
Reservados todas los derechos 
Version 2 


El sistema Access le permite elegir 1-2-3, PrintGrapb, el programa 
lostall, o la utaladad Translate del menú de la parte superior, 

de la pantalla S1 está utilizando un sistema de diskettes, el sistema de 
acceso le hara cambiar los diskettes Siga las instrucciones de abajo 
para comenzar un programa. 

o Utilice |12DA] o [DCHA] para mover el cursor del menú (la barra 
1luminada de la parte superior de la pantalla) al programa 

que quiere utilizar 


o Pulse [INTRO] para comenzar el programa. 
Tambien puede comenzar un programa tecleando la primera letra de la 
opcion del menú Pulse la tecla [AYUDA] para recibir más informacion. 


Aparece en su pantalla la pantalla 1, en 
la que le permite seleccionar la aplica- 
ción Lotus que desee. Para ello no tiene 
más que moverse con las flechas de cur- 
sor, situarse sobre la opción elegida y 


APLICACIONES 


HOJAS DE CALCULO 


pulsar (Intro), o bien pulse la inicial de di- 
cha opción. 

Nuestra intención es conocer la hoja 
de cálculo; para ello nos situamos sobre 
la palabra 1-2-3 del menú superior y pul- 
samos (Intro). 

1-2-3 es un solo programa que combi- 
na tres entornos de trabajo: una hoja de 
cálculo, base de datos y gráficos. 


1 
? 
3 
4 
5 
6 
1 
3 


La hoja de trabajo aparece ante noso- 
tros. En la parte superior de la pantalla fi- 
gura el nombre de la celda activa; si se 
desplaza con las flechas de cursor verá 
cómo varía este nombre para dar el 
correspondiente a la posición del cursor. 
Seguido a los dos puntos, en el espacio 
en blanco, aparecerá el contenido de la 
celda. Por ejemplo: teclee con el cursor 
en la celda A1 un número y pulse (Intro) 
o desplácese directamente a la celda 
A2 en la que introduciremos un conteni- 
do altanumérico tecleando 'HOLA. 

En la parte superior derecha vemos la 
palabra ACTIVO, nos indica la modali- 
dad en que se encuentra la hoja, en esta 
ocasión dispuesta a que introduzcamos 
valores en las celdas. Al introducir el con- 


Mi APLICACIONES 


tenido de la celda A1 la palabra cambió 
a VALOR y en la celda A2 a ROTULO. 

Abajo, a la izquierda, aparece la fecha 
y la hora del sistema, que va cambiando 
conforme lo hace ésta. 

La sencillez de esta pantalla puede 
asustar en un principio sobre todo por la 
ausencia de menú. Sin embargo, éste 
existe en el Lotus 1-2-3; para que aparez- 
ca en la pantalla tecleamos (/) la barra 
inclinada a la derecha. 


M MENU 
Hoja Rango Copiar Mover Fichero Imprimir Gráfico Datos Sistema Terminar 
Global, Insertar, Suprumir, Columna, Borrar, Títulos, Ventana, Estado, Página 
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Observe que la palabra de la esquina 
superior derecha ha cambiado, ha deja- 
do el modo activo para pasar al modo 
MENU. Para seleccionar una opción del 
menú puede desplazarse por el mismo 


con las teclas de cursor seleccionando 
el comando adecuado y pulsando (Intro) 
o simplemente pulsando la inicial del co- 
mando elegido. Al desplazarse con las 
teclas de cursor la línea inferior del menú 
va cambiando e indicando el contenido 
del comando sobre el que se encuentra 
el cursor. 

Además del menú que puede resultar 
de gran ayuda, 1-2-3 dispone de un com- 
pletísimo programa de ayuda al que se 
accede pulsando la tecla F1 y del que 
sale pulsando la tecla (Esc) o (Intro), vol- 
viendo al punto de trabajo en el que se 
encontraba. Consúltelo, comprobará 
cómo puede resultarle muy útil para su 
aprendizaje. 


M: 
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Indice de Ayuda Seleccione uno de estos temas para Ayuda adic1onal. 
Ancho Hombres de Pichero 

Borrar Entradas de Celdas Panel de Control 

Desplazar el Indicador de Celda Operadores 

Entradas de Celdas Rangos 

Errores y Mensajes Señalar Rangos 

Formatos de Celda -- húmero vs Rótulo Teclas de Puncion 

Formlas Teclas Especiales 

Indice a Mensajes de Error Terminar una Sesion de 1-2-3 
Macros Utilizar el Programa Ayuda 
Volver a Comenzar 

Volver a Introducir Rangos 


Mandatos de 1-2-3 

Menús de Mandatos 

Menús de Nombres (Fich., Rang. y Gráf.) 
Modalidades e Indicadores 
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PASCAL 


ON las estructuras de 
control que ya cono- 
cemos somos capa- 
ces de hacer que un 
conjunto de instruc- 
ciones se pueda eje- 
cutar en secuencia, 
de manera repetitiva 
o de manera selectiva, según un criterio 
dado. Con esto es posible, en teoría, 
construir cualquier programa. 

Sin embargo, hay ciertas estructuras 
construibles, por supuesto, en base a las 
estudiadas, que son tan frecuentes que 
merece la pena disponer de una forma 
específica de escribirlas, para así conse- 


begin 


end; 


(también se podría haber escrito agru- 
pando los diferentes IF de esta otra ma- 
nera: 


procedure WriteDia (D: DiaDeLaSemana_t); 
(kx Presenta en pantalla el valor de D x) 


if D = Lunes then write (”Lunes”) 
else if D = Martes then write (*"Martes?”) 
else if D = Miercoles then write ("Miércoles”) 
else if D = Jueves then write (*Jueves”) 
else if D = Viernes then write (*Viernes”) 
else if D = Sabado then write (*Sábado”) 
else write (*Domingo” ) 


guir una mayor claridad en los progra- 
mas. 

Vamos a estudiar a continuación una 
de ellas: 


'Q La estructura case 


Esta estructura podría considerarse 
como una estructura IF-THEN-ELSE espe- 
cial. IF, como sabemos, permite escoger 
entre un máximo de dos posibilidades. 

En multitud de ocasiones, sin embargo, 
es preciso escoger entre más de dos al- 
ternativas. Recordemos el procedimien- 
to WriteDia: 


if D = Lunes 
if D = Martes 


then write (“Lunes”); 
then write (*Martes”); 


if D = Miercoles then write (“Miércoles”); 


dl PASCAL 


que es algo menos eficiente, pues si, por 
ejemplo, D fuera Lunes, tras escribir «Lu- 
nes» se pasaría a comprobar si D es Mar- 
tes, etc., cosa que no sucede con el pro- 
cedimiento en su forma original). 

Los casos como éste en que hay que 
escoger entre más de una alternativa se- 
gún un criterio dado son muy frecuentes. 
Para esto está pensada la estructura 
CASE, que permite escoger entre varias 
instrucciones según sea el resultado de 
una expresión dada; el tipo resultante de 
esta expresión puede ser Integer, Char o 
cualquier otro tipo escalar creado por 
nosotros. WriteDia se escribiría así: 


procedure WriteDia (D: DiaDeLaSemana_t); 
(x Presenta en pantalla el valor de D k) 


begin 
case D of 
Lunes 3 
Martes 2 
Miercoles: 


(*"Lunes”); 
("Martes”); 
(*Miércoles”); 
(* Jueves”); 
(*"Viernes”); 
(*Sábado?”); 
(*Domingo” > 


La expresión (en este caso la variable 
D) cuyo valor controla la decisión a to- 
mar se escribe entre las palabras reser- 
vadas CASE y OF; tras esto se escriben las 
diferentes instrucciones a escoger sepa- 
radas entre sí por punto y coma. 


program AnalizaTexto; 
(xk 


Delante de cada instrucción y separa- 
da por dos puntos debe escribirse la lista 
de uno o más valores de la expresión (se- 
parados por comas) para los que deba 
ejecutarse, teniendo en cuenta que un 
valor dado sólo puede aparecer en a lo 
sumo una lista. 

Para terminar, la estructura CASE se es- 
cribe la palabra reservada END, tras la 
que podrían venir otras instrucciones se- 
paradas por punto y coma. 

Hay que considerar qué sucede cuan- 
do el resultado de la expresión no se en- 
cuentra en ninguna de las listas. En las 
primeras versiones de PASCAL se produ- 
cía un mensaje de error y el programa se 
detenía; las versiones posteriores simple- 
mente no ejecutan ninguna de las ins- 
trucciones de la estructura CASE y pasan 
a lo que venga a continuación. 

La mayoría de los compiladores de 
PASCAL actuales permiten, sin embargo, 
definir opcionalmente una instrucción al- 
ternativa que se ejecutaría en estos ca- 
sos; para ello se escribe esta instrucción 
antes de la palabra END final precedida 
de la palabra reservada ELSE (en algunos 
compiladores se emplea la palabra 
OTHERWISE; estamos ante algo no estándar 
del PASCAL y de ahí la posibilidad de que 
no en todos se utilice la misma palabra; 
en las más recientes proposiciones de 
estandarización del PASCAL se incluyen 
algunas ideas similares). 

Igual que sucede con la estructura IF, 
las instrucciones a escoger pueden ser 
simples, como en el siguiente ejemplo, o 
de cualquier otro tipo (REPEAT, FOR...), in- 
cluso secuencias de instrucciones: 


(k Analiza los caracteres de un texto introducido por teclado *) 
(kx y da el total de vocales, consonantes, cifras, etc. 


MaxLetras = 80; 


type 
Indice_t = 1. AE 


var 
Texto 
Indice 


(k Máximo número de letras por texto. X) 


: array [Indice_tJ of char; 
2 Indice_t; 


(Xx Variables usadas como contadores: %*X) 


Vocales, 
Consonantes, 
Cifras, 

OtroTipo : integer; 


function Mayuscula (C: char): 


begin 


if (a? <= C) and (C <= 


char; 


?2”?) then 


Mayuscula:= chr (ord(C)-ord(*a”)+ord(”*A”)) 


else 


>”? then Mayuscula:= 


q” 


else Mayuscula:= C 


write (” Introduzca el texto. 


Ge 


writeln (”? (Máximo ”,MaxLetras,” caracteres)”); 


readin (Texto); 


Vocales 2:= 0; 
Consonantes:= 0; 
Cifras := 0; 
OtroTipo := 0; 


for Indice:= 1 to MaxLetras do 
case Mayuscula (Texto [Indicel) of 


AS AA A A A 2 


A AS a O LT y ia 
o e AAA: E 
Sd el nd id 
A AO de : 


A A ra RS 
ER AA : 


Vocales:= Vocales + 1; 


Consonantes:= Consonantes + 1; 


Cifras:= Cifras + 1; 


else OtroTipo:= OtroTipo + 1 


end; 


writeln; 

writeln 

writeln 

writeln 

writeln 
end. 


(? VOCALES 


(* CIFRAS 


Para los ordenadores que permiten uti- 
lizar vocales acentuadas, éstas son unos 
caracteres totalmente distintos de las no 
acentuadas, por lo que pasarían a incre- 
mentar el contador OtroTipo si se encon- 
traran en el texto. Pruebe el lector a mo- 
dificar el programa para que contabilice 
por separado la letras acentuadas, los 
signos de puntuación, etc. 

Ya hemos dicho que, normalmente, 
cuando se teclea un texto de menor lon- 
gitud que el “array of char” al que va des- 
tinado, la variable se rellena por la dere- 
cha con los espacios en blanco (o ca- 


?, Vocales 
(* CONSONANTES ”?,Consonantes :3); 
?,Cifras 
(*DE OTRO TIPO” ,OtroTipo 23) 


23)3 


2:33 


racteres cuyo ordinal es 0, según el com- 
pilador) que hagan falta; por ello, normal- 
mente el contador OtroTipo tendrá un va- 
lor aparentemente exagerado; vamos a 
modificar el programa para que solucio- 
ne este problema utilizando una función 
que, aplicada a un texto, devuelva su 
longitud real. Además, haremos que se 
puedan procesar varios textos consecu- 
tivos hasta que se introduzca uno en 
blanco, mostrándose tras cada uno sus 
cuentas y las cuentas totales consideran- 
do las de los anteriores. 


(kx Analiza los caracteres de los textos introducidos por 

(kx teclado y da las cuentas parciales y totales de vocales, *) 
(k consonantes, cifras, etc. 
( 


ll PASCAL 


const 
MaxLetras = 80; (kx Máximo número de letras por texto. X) 


type 

Indice_t = 1..MaxLetras; 

Texto_t = array [Indice_tJ of char; 
var 

Texto 3 Fexto_t3 

Indice 2 Indice_t; 


(k Variables usadas como contadores: %) 


Vocales, (k para la cuenta parcial x) 
Suma_Voc, (k para la cuenta acumulada X) 
Consonantes, (kx etcétera... *x) 
Suma_Con, 

Cifras, 

Suma_C1f, 

OtroTipo, 

Suma_Otr : integer; 


function Longitud (T: Texto_t): Indice_t; 
(Xx Devuelve la longitud real del texto T 1) 
var l: integer; Parar: boolean; 
begin 
Il:= MaxLetras; 


Parar:= false; 


(*x Se explora el texto de atrás para adelante *) 
(k hasta encontrar el primer carácter válido: *) 


repeat 
1 Y mA then 
Parar (TEL <> ? *) and ¡CTLIT <> Chr(0)) 
else 


Farar:= true; 
if not Parar then 1 
until Parar; 


. 
' 
— 
| 
— 


Longitud:= ] 


end; 
AAA e a e e e e e e e e e o e e e -——*) 
function Mayuscula (C:z char): char; 
begin 
TF EA <a and € <= 2") Ehen 
Mayuscula:= chr (ord(C)-ord(*a*)+ord(*A”)) 
else 
if C="A”* then Mayuscula:= *RÑ” 
else Mayuscula:= C 

end; 
a e cr e Ci q a a 0 A a a A o x) 
begin 


Suma_Voc:= 0; 
Suma_Con:= 0; 
Suma_Cif:= 0; 
Suma_Otr:= 0; 
repeat (* repetir el proceso de textos X*) 


writeln; 
writeln (*Texto:”); 
readlin (Texto); 


(Xx Poner a cero los parciales: %) 


Vocales := 0; 
Consonantes:= 0; 
Cifras 2= 0; 


OtroTipo 2:= 0; 


for Indice:= 1 to Longitud (Texto) do 
case Mayuscula (Texto [IndicelJ) of 


»A*,”E”,”1”,*”0*,”U” 2 Vocales:= Vocales + 1; 
AS > PO A e AR 

E AS RS PR A 

al A A o E 

a z Consonantes:= Consonantes + 1; 


o e E A A 


end; 


(kx Acumularlos: %X) 


Suma_Voc:= Suma_Voc 
Suma_Cif:= Suma 


(Xx Enseñar los totales: *) 


write ("Totales ---> 
wite qu 
write E2 
writeln (” 


until Longitud (Texto) = O 
end. 


else OtroTipo:= OtroTipo + 1 


(kx Enseñar los parciales: *) 


+ Vocales; 
Suma_Con:= Suma_Con + Consonantes; 
Cif + Cifras; 
Suma_Otr:= Suma_Otr + OtroTipo; 


AS ETA 87079? Lifrasin Cifras +15 


” ,Suma_Voc 
? ,Suma_Con 
” ,Suma_Cif 
” ,Suma_Otr 


write as Vocales: ”,Vocales :3)3 
wite US Consonantes: * ,Consonantes :3); 
write (> Cifras: >, Cifras 23)3 
writeln (* Otras: ? ,OtroTipo :13)3 


13)3 
213)3 
23)3 
23) 


COBOL 


m Instrucciones 
aritméticas 


N todo programa se 
realizan cálculos con 
los datos. Seguida- 
mente se expone el 
formato de las sen- 
tencias de operación 
más comunes. 

La instucción de 


suma es: 


literal numérico 


e TO campo-numérico-2 
campo-numerico-1 O Pp 


ADD 


Los literales y campos que aparecen a 
la izquierda de la partícula TO se suman 
al campo que está a su derecha, dejan- 
do el resultado en éste. 

Si en el programa existe esta secuen- 
cia de instrucciones: 


MOVE 3 TO A. 
MOVE 10T0 B. 
ADD 2 A TO B. 


El valor final de B es 15 (2 + 3 + 10). El 
contenido de A permanece invariable. 
Para restar se emplea la instrucción: 


literal-numérico 
campo-numérico-1 
Se suman los literales y valores de los 
campos que se encuentren a la izquier- 
da del FROM, restándose a su vez el con- 
tenido de la variable de la derecha. 


SUBTRACT FROM campo-numérico-2 


Después de la serie de instrucciones: 


MOVE 3 TO A. 
MOVE 10T0 B. 
SUBTRACT 2 A FROM B. 


B toma el valor 5 (10 - (2 + 3)). 
La multiplicación tiene el siguiente for- 
mato: 


OTROS LENGUAJES 


campo-numérico-1 
li 


MULTIPLY teral 


| BY campo-numérico-2 


Se multiplican los dos valores y el resul- 
tado se almacena en el último campo 
(campo-numérico-2). 


MOVE 3 TO A. 
MOVE 10T0 B. 
MULTIPLY A BY B. 


El valor final de B será 30 (3*10). 
Para dividir se utilizan las instrucciones: 


campo-numérico-1 
literal 


Se divide el valor del campo-2 por el 
valor de campo-1 o el literal, almacenan- 
do en campo-2 el resultado. 


MOVE 12 T0 B. 
DIVIDE 3 INTO B. 


Después de ejecutar las instrucciones 
B, tendrá como valor 4. 

Pero en un programa pueden surgir ex- 
presiones aritméticas mucho más com- 
plicadas, resultando muy pesada su re- 
presentación con las instrucciones ante- 
riores. Para estas ocasiones existe una 
nueva instrucción. 

COMPUTE campo-1 = expresión aritmé- 
tica. 


Los operadores que se utilizan en una 
expresión aritmética son: 


+ Sumar. 

- Restar. 

* Multiplicar. 

/ Dividir. 

"* Potenciación. 
() Paréntesis. 


Existe una jerarquía de operadores, a 
la hora de trabajar con ellos. 

— Se ejecutan primero las operacio- 
nes encerradas entre paréntesis. 


DIVIDE INTO campo-numerico-2 


— Seguidamente se calcula el signo 
que afecta a la expresión. 

— El operador de potenciación. 

— Multiplicación y división. 

— Suma y resta. 
- Dentro de la misma prioridad se ejecu- 
tan antes los que estén más a la izquier- 
da. Hay que colocar los paréntesis de for- 
ma estratégica para romper el orden de 
prioridades, según interese. 


IDENTIFICATION DIVISION. 
PROCRAM-ID. EJ-OPERACION., 


ENVIRONMENT DIVISION. 


DATA DIVISION. 


WOREKING-STORAGSE SECTION. 


01 REG-EMFLEADO. 
OS CODIGC 
OS SUELDO 
'0S GRATIF 
OS DESCUENTO 


01 TOTAL 


PROCEDURE DIVISION. 


INICIO. 


El siguiente programa pide por panta- 
lla el código de un empleado, su sueldo, 
el porcentaje de gratificación y la canti- 
dad a descontar. Se mostrará por panta- 
lla el total que debe percibir cada em- 
pleado. 

La fórmula que se aplica para obtener 
el sueldo neto es: 


GRATIF 


—————— - DE ENTO 
100 scu 


TOTAL = SUELDO + SUELDO * 


DISPLAY *DATOS DE EMPLEADO”. 


DISPLAY 
ACCEFY CODIGO. 


DISPLAY *SUELDO?. 


ACCEPT SUELDO. 
DISFLAY 
ACCEPT GRATIF. 


> CODIGO”. 


*GRATIFICACION”. 


DISFLAY * DESCUENTO”, 


ACCEPT DESCUENTO. 
SUELDO + SUELDO * GRATIF / 10€ 


COMFUTE TOTAL = 
DISFLAY CODIGO ? 


FIN-FECGRAMA. 
STOP RUN. 


COBRARA ? 


- DESCUENTO. 
TOTAL. 


2. ... A PP. 


=== y EDICIONES y SIGLO y CULTURAL y == 


